home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / amos / PrgCollection.lha / Demo8.AMOS / Demo8.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1994-03-12  |  2.8 KB  |  73 lines
  1. ' *************************************
  2. ' *                                   *
  3. ' *            Demo 8 V1.0            *
  4. ' *      Written by Chris Hodges      *
  5. ' *                                   *
  6. ' *************************************
  7. '
  8. Screen Close 0 : Close Editor : Close Workbench 
  9. Unpack 15 To 0 : Screen Hide 0 : Hide 
  10. For Y=0 To 4
  11.   For X=0 To 9
  12.     Get Block X+Y*10+1,X*32,Y*40,32,40,0
  13.   Next 
  14. Next 
  15. Screen Open 1,352,200,32,Lowres
  16. Flash Off : Curs Off : Paper 0 : Pen 1 : Cls 0
  17. Screen Display 1,128,50,320,200
  18. Get Palette 0
  19. Set Rainbow 1,0,46,"","","" : B=0 : C=0
  20. For A=0 To 45
  21.   Rain(1,A)=B/2 : B=Min(B+1,31)
  22. Next 
  23. SC$=" abcdefghijklmnopqrstuvwxyz0123456789!?:;G(),-.'FS"
  24. S$="hotsoft presents another fine intro!        sorry about the upper bar     but if i'll modify it    the scroller will begin to ..."
  25. S$=S$+"       aeh...       na ruckeln halt...         if you want to see it anyway press right mouse button...     not my problem..."
  26. S$=S$+"   amos is really the best basic language on the amiga...  "
  27. S$=S$+"  it's much better than amigabasic  (kotz!)....        "
  28. S$=S$+"at last the greetings       this time a little bit shorter...       only a bit!   not a byte (haha!)     "
  29. S$=S$+"hendrik h. heimer   michael berchtold   mad henry   mr. snoopy   jaro    hans-peter   the hitman   "
  30. S$=S$+"                         scroll restarts         "
  31. S=31 : B=0 : SP=8
  32. Def Scroll 1,0,158 To 352,199,-SP,0
  33. Rainbow 1,0,204,46
  34. Screen Copy 0,0,200,224,240 To 1,50,117
  35. Screen Copy 0,0,241,320,242 To 1,0,199
  36. Screen Copy 0,0,241,320,242 To 1,0,157
  37. Screen Copy 0,0,241,320,242 To 1,0,115
  38. Screen Copy 0,0,241,320,242 To 1,0,0
  39. Screen Close 0
  40. Shift Down 2,16,28,1 : Music 1
  41. Flash 8,"(000,60)(222,1)(444,1)(666,1)(888,1)(AAA,1)(CCC,1)(FFF,4)(CCC,1)(AAA,1)(888,1)(666,1)(444,1)"
  42. Y1=2 : S1=1
  43. Do 
  44.   Add S,SP
  45.   If S>31 Then Gosub NL
  46.   Add D,1,16 To 27 : Add Y1,S1 : If Y1>112 or Y1<3 Then S1=-S1
  47.   Wait Vbl : Scroll 1
  48.   Ink D : Draw 32,Y1 To 287,Y1
  49.   Exit If Mouse Key=1
  50.   If Mouse Key=2 Then Gosub BA
  51. Loop 
  52. Shift Off : Flash Off : Rainbow Del 
  53. Music Off : Screen Close 1
  54. View : Wait Vbl 
  55. End 
  56. NL:
  57.   S=0 : Add B,1,1 To Len(S$)
  58.   C=Instr(SC$,Mid$(S$,B,1))-1 : Y=C/10 : X=C mod 10
  59.   Put Block C+1,320,159
  60. Return 
  61. BA:
  62.   Ink 0 : Bar 0,2 To 320,113 : Repeat : Until Mouse Key=0
  63.   Y1=2 : Y2=30 : Y3=20 : Y4=15 : S1=0 : S2=0 : S3=0 : S4=2
  64.   Repeat 
  65.     YA1=Y1 : YA2=Y2 : YA3=Y3 : YA4=Y4 : Add D,1,16 To 27 : Add Y1,S1 : Inc S1 : If Y1>100 Then S1=-S1+1
  66.     Add Y2,S2 : Inc S2 : If Y2>100 Then S2=-S2+1
  67.     Add Y3,S3 : Inc S3 : If Y3>100 Then S3=-S3+1
  68.     Add Y4,S4 : Inc S4 : If Y4>100 Then S4=-S4+1
  69.     Wait Vbl : Ink D : Polyline 30,Y1 To 109,Y2 To 209,Y3 To 289,Y4 : Ink 0 : Polyline 30,YA1 To 109,YA2 To 209,YA3 To 289,YA4
  70.   Until Mouse Key=2
  71.   Ink 0 : Bar 0,2 To 320,113 : Repeat : Until Mouse Key=0
  72.   Y1=2 : S1=1
  73. Return